! door_panel_D /modified by VL 3/1/94/
! internal macro: door_int_frame
! a=width, b=height, c=thickness, d=panel frame width,
! e=fill material
f=1"     ! internal frame width of fill

prism_ 16,c,
0,0,15,
0,b,15,
a,b,15,
a,0,15,
0,0,8,
d,d,15,
a-d,d,15,
a-d,2*b/5-d/2,15,
d,2*b/5-d/2,8,
d,2*b/5+d/2,15,
a-d,2*b/5+d/2,15,
a-d,b-d,15,
d,b-d,15,
d,2*b/5+d/2,8,
d,2*b/5-d/2,15,
d,d,8
addx d
addy d
addz c/4
call door_int_frame a-2*d, 2*b/5-3*d/2, c/2, f
  if e<1 then 11 
    add f, f, c/8
    material e               !***fill
    block a-2*(d+f), 2*b/5-3*d/2-2*f, 0.004
    material M_
    del 1
11:
addy 2*b/5-d/2
call door_int_frame a-2*d, 3*b/5-3*d/2, c/2, f
  if e<1 then 21
    add f, f, c/8
    material e            ! ***fill
    block a-2*(d+f), 3*b/5-3*d/2-2*f, 0.004
21:
end